
 1000  *SAVE S.LOVE'S CONVERSION
 1010  *--------------------------------
 1020         .LIST OFF
 1030  *--------------------------------
 1040  BYTE   .EQ $00
 1050  COUT   .EQ $FDED
 1060  CROUT  .EQ $FD8E
 1070  PRBYTE .EQ $FDDA
 1080  *--------------------------------
 1090  *      COMMAND
 1100  *--------------------------------
 1110  P      LDA #0
 1120         STA BYTE
 1130  .1     JSR PRINT.000.255
 1140         JSR CROUT
 1150         INC BYTE
 1160         LDA BYTE
 1170         BNE .1
 1180         RTS
 1190  *--------------------------------
 1200  *      PRINT.000.255
 1210  *--------------------------------
 1220  PRINT.000.255
 1230         LDY #0
 1240         SEC
 1250  .1     SBC #10
 1260         PHP
 1270         PHA
 1280         TYA
 1290         SED
 1300         ADC #0
 1310         TAY
 1320         PLA
 1330         PLP
 1340         BCS .1
 1350         ADC #"0+10
 1360         PHA
 1370         TYA
 1380         JSR PRBYTE
 1390         PLA
 1400         JMP COUT
 1410  *--------------------------------
 1420  SC
 1430         LDY #"0"
 1440         TAX
 1450         BEQ .3
 1460         LDA #0
 1470         SED
 1480  .2     CLC
 1490         ADC #1
 1500         BCC .25
 1510         INY
 1520  .25    DEX
 1530         BNE .2
 1540         CLD
 1550  .3     PHA
 1560         TYA
 1570         JSR COUT
 1580         PLA
 1590         JMP $FDDA
 1600  *--------------------------------
 1610  T      LDA #0
 1620  .1     STA BYTE
 1630         JSR SC
 1640         LDA #" "
 1650         JSR $FDED
 1660         LDA BYTE
 1670         JSR $FDDA
 1680         JSR CROUT
 1690         LDA $C000
 1700         BPL .2
 1710         STA $C010
 1720  .3     LDA $C000
 1730         BPL .3
 1740  .2     STA $C010
 1750         LDA BYTE
 1760         CLC
 1770         ADC #1
 1780         BNE .1
 1790         RTS
 1800  *--------------------------------

